10 REM----SHUTTLE LAUNCH----
12 POKE53280,0:POKE53281,6
13 DV=PEEK(186):IFDV<8THENDV=8
14 POKE53272,31
15 PRINT"[147][211]TART THE COUNTDOWN...":PRINT"[212]IME TO LAUNCH:";
20 V=53248:S=54273:B=3:POKE2040,13:POKE2041,14:FORJ=842TO919:READK:POKEJ,K
25 NEXT
30 FORJ=0TO2:READK,L:POKES+K,L:NEXT:FORJ=0TO8:READK,L:POKEV+K,L:NEXT
35 REM GETK$:IFK$=""THEN35
40 FORC=9TO0STEP-1:PRINTC;"[157][157][157]";:POKES+23,15:POKES+23,0:FORT=0TO950:NEXT
45 NEXT
50 FORY=245TO40STEP-1:POKEV+1,Y-40:POKEV+3,Y:POKEV+23,B
55 B=1:POKES+23,(Y/15)-2:POKES,Y/6
60 NEXT
65 DATA16,0,0,124,0,0,254,0,8,254,32,28,254,112,62,130,248,62,56
70 DATA248,62,84,248,62,124,248,60,124,120,57,109,56,57,109,56,35,109
75 DATA136,15,109,224,63,125,248,254,0,254,0,108,0,20,0,80,0,0,16,0,8,56
80 DATA32,28,124,112,62,124,248,28,56,112,28,56,112,8,56,32,0,16,0,4,128
85 DATA5,128,3,129,21,3,23,1,39,1,40,8,0,220,2,220,1,207,3,245,33,6
90 DATA248,62,84,248,62,124,248,60,124,120,57,109,56,57,109,56,35,109
110 DATA32,28,124,112,62,124,248,28,56,112,28,56,112,8,56,32,0,16,0,4,128
120 DATA5,128,3,129,21,3,23,1,39,1,40,8,0,220,2,220,1,207,3,245,33,6
150 POKE53269,0:FORT=1TO3000:NEXT
155 PRINT"[147]"
160 PRINT"NEW"
165 PRINT"LOAD"CHR$(34)"FT.MENU"CHR$(34)","DV
170 PRINT"RUN"
175 PRINT"":POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
10000 D=PEEK(186):N$="FT.SHUTTLE LAUNC":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END